home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / fw / set.e < prev    next >
Encoding:
Text File  |  1996-01-28  |  454 b   |  25 lines
  1.  
  2. -> a set is an unordered collection of elements.
  3. -> Elements can only occur one time.
  4. -> Time complexity for data adding is O(1).
  5. -> Time complexity for data searching is O(n).
  6. -> Space complexity is O(n).
  7.  
  8. -> Copyright © Guichard Damien 01/04/1996
  9.  
  10. OPT MODULE
  11. OPT EXPORT
  12.  
  13. MODULE 'fw/bag'
  14.  
  15. OBJECT set OF bag
  16. ENDOBJECT
  17.  
  18. -> Add an element to the set.
  19. PROC add(e:PTR TO set) OF set
  20.   IF self.find(e) THEN RETURN
  21.   e.next:=self.next
  22.   self.next:=e
  23. ENDPROC
  24.  
  25.